﻿<%
'****************************************
' xnxf_sns 子菜单
'****************************************
Function xnxf_sns_SubMenu(id)
	Dim aryName,aryPath,aryFloat,aryInNewWindow,i
	aryName=Array("首页")
	aryPath=Array("main.asp")
	aryFloat=Array("m-left")
	aryInNewWindow=Array(False)
	For i=0 To Ubound(aryName)
		xnxf_sns_SubMenu=xnxf_sns_SubMenu & MakeSubMenu(aryName(i),aryPath(i),aryFloat(i)&IIf(i=id," m-now",""),aryInNewWindow(i))
	Next
End Function

%>
<script language="javascript" type="text/javascript" runat="server">
function toObject(json) {
eval("var o=" + json);
return o;
}

function getItem(obj,Num,Name){
return obj[Num][Name];
}
</script>